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About this book 

The programs in this book are 
written in a standard version of 
BASIC and there are conversion 
lines to type in for most of the main 
types of home computers. Look 
down the left-hand side of the 
program for the symbol for your 
computer and then look at the list of 
changes for the correct version of 
that line. The symbols for the various 
computers are as follows: 

A Commodore 64 and VIC 20 
★BBC and Electron 
OSpectnun 
•Apple 

■ TRS-80 (extended BASIC version) 

About the games 

The games in this book are very 
simple. They are intended to help 
you get used to your computer and 
to the BASIC language by typing in 
listings, debugging them and seeing 
how they work. The programs do 
not contain graphics or sound as 
these vary so much from computer 
to computer, but you can try adding 
these. 

You can change and adapt the 
games as much as you like. There 
are suggestions for ways of doing 
this next to each program and you 
can experiment with your own ideas 
as well. This way you can use the 
games in this book as a basis for 
longer, more complicated games of 
your own. 

Micropuzzle was written by Les Howarth 
and Monster Wrestling by Adrian Hall. 

Illustrated by Rob McCaig, Sue Walliker, 
Martin Newton and Graham Smith. 


Typing and running the 
programs 

Remember, even short programs 
can be quite difficult and time- 
consiuning to type in correctly. 
Check each line as you go. It is so 
easy to make mistakes, eyen if you 
are quite experienced. When you 
have typed in the whole listing, 
check it again, making sure you 
haven’t missed any lines, spaces or 
punctuation. 

To start the game, type RUN. Read 
the introduction to the game first so 
that you have some idea of what you 
are supposed to do before you start. 
If the program doesn’t work 
properly, it is quite likely that there 
is a mistake in it somewhere, so LIST 
the program and check again. 

When the game is over, the 
computer may ask if you want to 
play again or say something like 
BREAK in 200, in which case you 
must type RUN to play again. 

Changing the speed 

Some games depend on the speed 
of both your reactions and your 
computer. You may find you need to 
adjust the speed. You will find 
instructions for doing this next to the 
program listing. 


First published in 1984 by Usbome 
Publishing Ltd, 20 Garrick Street, London 
WC2E9BJ. 

© 1984 Usbome Publishing Ltd 

The name Usbome and the device ^ are 
Trade Marks of Usbome Publishing Ltd. 


2 Designed by Roger Priddy 



Your mouth is dry, your legs are shaking and your heart is thumping - you’ve entered 
the Tower of Terror . . . 

^ ^ Press G to move through the rooms. Agh!! there’s a skeleton, then a ghost, then a 
headless axeman! With each fresh shock your pulse rate rockets. 

Will you go on (G), or retreat (R) to recover a little? Watch the time - you’ve only got 
until midnight to reach the top of the Tower and the coveted Treasure. Watch your 
pulse rate too. Madness takes over when it reaches 150 and nothing can stop you 
leaping to your doom out of the window. 


Try changing the pulse 
rate limit. 


D C 


Can you work out how 
to add more rooms too? 




See if you can add more 
nasties and change 
their shock ratings. ] 


10 GOSUB 470 
20 LET Rl=-G00D LUCK- 
30 LET RH=0 

■040 LET H=9;LET H=INT(RND(1)*10) + 10 
50 LET P=50 

•▲60 CLS:PRINT:PRINT 
, 70 PRINT -TONER OF TERROR" 

BO PRINT -===============« 

90 PRINT:PRINT R$ 

^ 100 LET RI="";LET FL=INT(Rf1/5} 
no LET R=Rf1-FL*5+l 
120 PRINT:PRINT "YOU ARE ON" 

130 IF FL=0 THEN PRINT 'THE GROUND FLOOR* 

140 IF FL=6 THEN PRINT "THE TOP FLOOR* 

150 IF FDO AND FL<6 THEN PRINT "FLOOR *;FL 
160 PRINT "IN ROOM ";R 
170 PRINTiPRINT "THE TINE IS ";H;".";H;* PH 
o IBO PRINT;PRINT "YOUR PULSE RATE IS *;P 
190 LET GF=0 

200 IF RH=30 THEN GOTO 350 
■0210 LET TR=INT(RND(l)*9n) 

■0220 IF RND(1)>.6 THEN GOSUB 420 

230 PRINT:PRINT "RETREAT OR SO ON (R/G)" 
k240 LET I$=INKEY$ 

250 IF I$0"G" AND IIO'R" THEN GOTO 240 
260 IF I$="G* THEN GOSUB 400 
270 IF Il=-R" THEN LET RH=RH-1:LET P=P-5 
280 IF RH=-1 THEN LET RH=0 

290 LET H=H+INT(RND(l)*3n):IF H>59 THEN LET H=H-60;LET H=H+1 
300 IF H=12 THEN GOTO 360 
310 IF P>150 THEN GOTO 380 
320 IF P<40 THEN LET P=40 
■0330 IF FL=TR AND RND(1)>0.5 THEN GOSUB 520 
340 GOTO 60 

350 PRINT "WELL DONE *:ST0P 
360 PRINT;PRINT "IT'S HIDNISHT'" 

370 PRINT:PRINT "TOO LATE!*;ST0P 
380 PRINT -YOU HAVE GONE HAD AND" 

390 PRINT "LEAPT FROH A WINDOW! ";ST0P 
400 IF GF=1 THEN LET P=P+S»2;LET R$="AAAHHHH 
410 LET P=P-1:LET RH=RH+1:RETURN 
■0420 LET TY=INT(RND(l)t3+l) 

430 LET WI=GI(TY) 

>440 LET S=INT(RND(l)*5)+FLm*2 
450 PRINTiPRINT "AHEAD YOU SEE A ";WI 
460 LET GF=1:RETURN 
X470 DIH G$(3) 

480 LET G$(1)="SKELET0N" 

490 LET G$(2)="GH0ST" 

500 LET G$(3)="HEADLESS AXEHAN" 

510 RETURN 

520 LET R$=*Y0U FELL THROUGH A TRAP DOOR 


How it works 


10: Goes to initialization section 
to read in data. 


30: RM is the room you’re in. 
40-50: Set the starting time and 


pulse rate. 

90: Prints any comment stored in R$. 

100-160: Work out floor and room 
you are in from value of RM and 
print this information. 

170-180: Print other information. 




190: GF is a flag which is set 
when there is a nasty ahead. 


200: Checks if you’ve reached 
the last room. 


210: Selects room for trap door. 


220: Random chance of there 
being something ahead. Goes to ^ 
subroutine if there is. 


230-280: Get player’s input and 
act on it. 


What is the Treasure of 
Tower and how did it 
get there . . .? Perhaps 
you can add your ideas 
to the program. 



290: Increases time. 

300: Tests for midnight. 

[310: Tests if pulse rate is too high. 

^30: Checks if you are in room 
with trap door. 

400-410: Move forward routine. 
Increase pulse if there’s a nasty. 

420-460: Select a type of nasty 
and its shock rating. 

470-510: Read in data for start of 
game (initialization). 

520: Trap door subroutine. 


Conversion lines 


O 40,210,220,290,330,420,440 Replace 
RNOil) Hith RND 

■ 40,210,220,290,330,420,440 Replace 
RNDtll .ith RNDIO) 

A 60 PRINT CHR$(147I;PRINT:PRINT 

• 60 HOnE:PRINT:PRINT 

• 240 LET I$=INKEY»(0) 

A 240 GET 14 

• 240 1»=":IF PEEK(-16384i>127 c 

THEN GET IJ ‘ ' 

<2 470 DIN Gtl3,15) 


liMl/,.. 




"!LET RH=RH-5:LET P=P+10;RETURN 






m 






opj 

c91 



SkuCCs ofihePyramid 


1 


A mind without a body - that’s all you’ve been since that terrible accident aU 
those years ago, during the building of The Pyramid. 

It takes all your mental energy to satisfy the Evil Spirit Master’s demands. 
Every day he forces a number into your mind (if only you could turn him off!). 

You must will skulls to fall off The Pyramid onto the numbered stones below in an 
attempt to score that number. 

Press 1, 2, 3 or 4 to release a skull. You must use five skulls each go - no more, 
no less. Score the right number and rid yourself of the Curse of The Pyramid. 






Increase the value of SP in 
line 10 to speed up the 
program. 


? 


LET TS=0;LET II=“0":LET SP=3 
LET N=INT(RND(1)»30)+10 
CLS;PR1NT 

PRINT 'SKULLS OF THE PYRAMIDS 
PRINT 

PRINT "YOU ARE REQUIRED' 

PRINT 'TO BET '|N:PRINT 
LET K=3000:60SUB 540 
CLS:LET Y=2 
FOR 1=1 TO 4 
LET A$=STR$(I):LET 1(=6+2*I 
60SUB 560 
NEXT I 

LET AI="'':F0R 1=1 TO 5 

LET Y=2+2»I 

FOR J=1 TO 1+3 

LET X=7-I+2»J 

60SUB 560 

NEXT J 

NEXT 1 

LET Y=14 

FOR 1=1 TO 9:LET Af=STR$(I) 

LET X=l+2*l!60SUB 560 

NEXT 1 

LET S»0 

FOR 1=1 TO 5 

LET A$="CH00SE RON" 

LET X=0:LET Y=0:G0SUB 560 
LET I4=INKEYI 
IF II="THEN BOTO 290 
LET R=VAL(II) 

IF R<1 OR R>4 THEN GOTO 290 
LET Y=3:LET K=400:LET X=6+2+R 
LET F=0 


I 


I 


How the program works 


10: Sets variables at beginning of 
game. 


20: Chooses number that player 
must score. 


30-80: Print starting message and 
wait for player to see it. 


90-240: Print out pyramid and the 
numbers at the top and bottom of it. 



250: Sets score to zero. 

260: Sets number of skulls. 


270-280: Print message top 
left of screen. 


290-300: Wait for key to be 
pressed. 


310-320: Check if key pressed 
is between 1 and 4 and go 
back to wait again if it isn’t. 


330: X and Y are position of 
skull. This line sets them 
at the top of the pyramid. 


340: F is a flag which 
records whether previous 
move was a sideways 
bounce. 





\ 420 



LET A$='0’ 

GOSUB 560 
605UB 540 

LET Al=‘‘ ":GOSUB 560 

IF F=0 AND Y<13 THEN LET X=X+SGN(RND(l)-.5) 

LET Y=Y+1:LET F=l-F 

IF Y<14 THEN GOTO 350 

LET S=SMX-l)/2 

LET X=15:LET Y=0 

LET A$=STRI(I)^":“+STR$(S) 

GOSUB 560 
NEXT I 

LET K=1000:G0SUB 540 

LET D=ABS(S-N):LET TS=TS+D 

CLS:PR1NT:PRINT 

PRINT "YOUR RATING IS NOW ";TS 

IF D>1 THEN LET K=3000;G0SUB 540:G0T0 20 

PRINT "AND YOU CAN GO FREE!" 

STOP 

FOR T=1 TO K STEP SPrNEXT T 
RETURN 

PRINT TAB(X,Y);A$ 

RETURN 


350-370: Print the skull and wait. 
380: Remove the skull. 


390: Choose which way to 
bounce (if value of F allows 
sideways bounce). 


400: Moves skull down one row. 


410: Checks if skull has reached 
the bottom. 


420: Works out score depending 
on column skull finishes in. 


430-450: Print out score. 
470: Waits. 


480-500: Add difference between 
score and number required to 
total score. Clear screen and 
print score. 


510: If difference is greater than 
1, goes back for another go. 


520: Prints winning message. 


540-550: Subroutine to make 
computer pause for length of 
time depending on K. 


560-570: Subroutine to move 
cursor to position X, Y on the 
screen. 


Don’t suppose 
you’re clever 
enough to change 
the limits of the 
number to be 
scored. 


T 


Conversion lines 

020,390 Replace RNDIl) with RND 

■ 20,390 Replace RND(l) with RND(O) 

• 30,90,490 Replace CLS with HONE 

A 30,90,490 Replace CLS with PRINT CHR$(147) 

• 290 LET IJ=1NKEY$(0) 

• 290 I4=“:IF PEEK(-16384)>127 THEN GET 1$ 
A 290 GET II 

O5G0 PRINT AT Y,1(;AI 

• 5&0 VTAB(YH)!HTABIX^1);PRINT AI 
A560 PRINT CHRI(19);:F0R LL=1 TO Y: 

PR1NT:NEXT:PRINT TAB(X);AI 

■ 560 PRINTB Yt32+X,AI; 






CVfonster Wr^stCing 


Monster wrestling is a sport for lunatics! Which doesn’t say much for you- the 
brain in charge of this hulk of bone and muscle which is about to take on some of the 
nastiest monsters in the Universe. 

As brain, you must do a lot of quick and accurate calculations. You must work out 
the muscular e^ort required to hold off the monster, for instance, and this involves 
multiplying the size of the monster by the distance it is away from you. 

If the numbers look too difficult, you can press the Panic Button (key P). You must 
then work out how much adrenalin the body needs to survive the crisis, by 
dividing heartbeat increase required by oxygen supply. Take care though, over- 
use of the Panic Button puts too much strain on the heart and wiU eventuaUy cause 
a black out. 

To live to fight another match, you must survive 12 rounds against the monster. 


LET P=0 
LET K=3 


How the program works 


CLS 

LET X=1 
LET Y=6 
LET N=-l 
LET N=N+1 

LET G=INT(RND(1)»Y+1() 

LET 1=INT(RND(1)*K+K) 

LET Y=Y+0.5 
LET X=)(+0.5 
LET K=K+0.5 
PRINT 
PRINT 

PRINT "SIZE OF MONSTER: 

PRINT G 
PRINT 

PRINT "DISTANCE AWAY: 

PRINT I 
PRINT 

PRINT "MUSCULAR EFFORT? 

GOSUB 570 

IF ZOGtl THEN GOTO 320 
CLS 

PRINT "MONSTER KEPT AT BAY" 

IF N<11 THEN GOTO 75 
PRINT "PHEWII!!-THE MONSTER" 

“IS TIRED AND HAS GONE TO 
"LOOK FOR ANOTHER VICTIM." 
"YOU SURVIVE TO TELL THE TALE 


20: Sets number of panics used to 
zero. 


30-60: Set upper limits for size of 
monster and distance away. 


70: Sets number of rounds. 
80: Sets monster size. 

90: Sets distance away. 


100-120: Increase upper limits for 
size and distance by 0.5 each 
round. 


210-220: Ask for answer and go to 
subroutine to deal with it. 


230: If answer incorrect, jumps 
down program for losing 
message. 


250: Message if round won. 
260: Goes back for next round. 


270-310: Winning message if you 
survive 12 rounds. 


330-380: Losing message. 


PRINT 

PRINT 

PRINT 

STOP 

CLS 

PRINT 

PRINT 


If yon keep losing, 
yon’d better slow the 
program down by 
increasing the value of ^ 
0 in line 660. 


YOU HAVE BEEN CRUSHED" g 

TO A PULP IN THE" ^ 

PRINT “MONSTER'S HUGE ARMS" 

PRINT 

PRINT "YOU SURVIVED ";N:“ ROUNDS" 




Decrease Q if the game ^ 
is too easy for you. 






380 STOP 
•A 390 CLS 

»>400 LET WX=INT(RND(1)*9+1) 

■0410 LET WYMNT(RND(l)»9+l) 

420 LET W=WX*WY 

430 LET P=Pfl 

440 IF PM THEN GOTO 700 

450 IF P=3 THEN PRINT "YOU ARE SEEING STARS 

460 PRINT "PANIC ON! I" 

470 PRINT 

480 PRINT "HEARTBEAT INCREASE: ";W 
490 PRINT "OXYGEN SUPPLY=";NX 
500 PRINT 

510 PRINT "AMOUNT OF ADRENALIN? "j 
★ 520 LET QMOO 
530 GOSUB 580 

540 IF ZONY THEN GOTO 320 
•A550 CLS: IF N<11 THEN GOTO 75 
560 GOTO 270 
570 LET Q=0 
0580 LET Zl="“ 

*^90 LET A$=INKEY$ 

<ft00 IF AI=CHR$(13) THEN GOTO 680 \l 
O 610 IF A$="P" THEN GOTO 390 ” 

620 IF VAL(AI)=0 AND AIO"0" THEN GOTO 650 
O 630 PRINT A$; ^ ^ 

640 LET Z$=ZI+Af 'W 

650 LET Q=Q+1 

^J660 IF 0=500 THEN GOTO 320 V 

670 GOTO 590 \ 

680 LET Z=VAL(Zf) /|] \ 

690 RETURN h A 

•a700 CLS \ fl 

710 PRINT "YOU BLACKED OUT" 1 ji 

720 STOP 4^ 


400-410: Set oxygen supply and 
amount of adrenalin needed. 


430-450: Increase panic count, 
print warning after 3 and end 
game after 4. 


460-510: Print panic messages 
and ask for answer. 


520: Sets value of Q for start of 
count at lines 650-660. 


530: Goes to answer subroutine. 


540: If answer incorrect, jumps 
back to losing message. 


550-560: If correct, go back for 
next round or winning message. 


570-690: ANSWER SUBROUTINE. 
570: Sets count to zero. 


580: Sets aside memory for Z$. 


Make it harder for 
yourself - find out how 
to increase the number 
"\ of rounds. j 


600: Checks if key pressed is 
RETURN (CHR$(13)). If so jumps 
down to line 680. 


620: If no key pressed, jumps 
down to increase count Q. 


630: If key other than RETURN or 
P pressed, it is printed. 

640: Z$ is all keys pressed this round. 

650-660: Time loop. If Q reaches 
1000 before key is pressed, jumps 
up to losing message. 

670: Goes back for next key press. 

680: Converts numbers in string 
Z$ to values it can put in Z. 

710: Losing message for over-use 
of panic. 


Conversion lines 

A 40,240,320,390,550,700 Change CLS to PRINT CHR»(14?I 
• 40,240,320,390,550,700 Change CLS toHOBE 
S^80,90,400,410 Change RNDIl) to RND 
■ 80,90,400,410 Change RND(l) to RNDIOI 
★520 LET 0=400 
0580 LET Zl=‘0' 

★590 LEI A»=INKEY$tI) 

A590 6ET A( 

•590 AI=”:IF PEEKt-16384l>127 THEN 6ET Al 
0595 IP Al=" THEN SOTO 650 
7^97 PAUSE 40 

OhOO IF At=CHRI113) THEN PAUSE 20:G0T0 680 
Ohio IF A$=‘P’ THEN PAUSE 30: GOTO 390 
0630 PRINT At;:PAUSE 15 
★660 IF 0=1000 THEN GOTO 320 
O«^660 IF 0=250 THEN GOTO 320 





Jaws 

Mmmmmm . . . people do taste yummy! But, with The Hunter forever on your tail, it’s 
difficult to get close enough to catch them. 

You are J (for Jaws) and you can move around by pressing keys A, Z, N and M. See 
how many Ps (people) you can eat before H catches you. There’s a snag (of course). 
Each time you succeed in catching and devouring a delicious human being, you get so 
excited you can’t remember which key does what. 


OlO DIfl «$(12):DI!1 K$(4);G0SUB 660 


20 LET S=0:LET T=0:LET G=0 


30 LET U=1 

40 LET K$(1)="A" 
50 LET K$(3)="Z“ 


LET Kf(2)='‘H- 
LET K$(4)=*N" 


60 

70 

80 

90 

'A'A^lOO 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

■0240 

250 

260 

270 

280 


LET PX=2:LET PY=2 
GOSUB 600 

GOSUfi 490: GOSUB 440 
LET Nll=PX:LET NY=PY 
LET I$=INKEYI 

IF I$=K$(1) THEN LET NY=NY-1 
IF I$=KII2) THEN LET NX=NX+1 
IF I$=KI(3) THEN LET NY=NYM 
IF I$=K$(4) THEN LET NX=NX-1 
LET X=NX:LET Y=NY:G0SUB 530 
IF F=1 THEN GOTO 230 
LET X=PX;LET Y=PY:LET A$=“ ' 

GOSUB 640 

LET X=NX:LET Y=NY;LET Als-J" 

GOSUB 640 

LET PX=NX;LET PY=NY 

IF PX=TX AND PY=TY THEN GOSUB 340 

IF PX=GX AND PY=GY THEN GOTO 280 

IF RND(1)>U THEN GOSUB 370 

LET X=14:LET Y=12:LET A$=STRI(T) 

GOSUB 640 

LET G=GH:G0T090 

FOR P=1 TO 2000:NEXT P 


I dare you to make 
the hunter move 
more often. 


Conversion lines 



OlO DIfl fll(12,16l:DIfl KI(4)!G0SUB 640^ 

★ lOO LET I»=INKEV$(0) 

• too I»=”:IF PEEK(-16384)>127 THEN GET II 
AlOO GET It 

0240,390,400,550,560 Replace RND(l) »ith RND 
■240,390,400,550,560 Replace RND(l) .ith RNDIOl 
•290,600 Replace CLS iiith HOflE 
A290,600 Replace CLS .ith PRINT CHRKHT) 

0530 LET FsOsIF ni(y,n<>' ■ THEN LET F=I 
0640 PRINT RT y,ll;flt 
•640 VTAB(V):HTR6(*):PRINT fit 

Amo print CHRI(19lj:F0R LL=1 TO y:PfiINT:NE«T:PRINT TABm;At 
■640 PRINTS yt32t«,AI; 


How the program works 

10: Sets aside memory space for the 
grid. Goes to subroutine to read in data 
for grid. 

20: Sets variables to zero for start. 

30: Sets how often hunter moves. 

40-50: Set directions in which keys 
move. 

60: Sets starting position for Jaws. 

70: Goes to subroutine which prints out 
grid. 

80: Goes to subroutines which choose 
positions for hunter and person. 

90: Sets Jaws’ position to new position. 

100-140: Calculate new position of Jaws 
depending on which key pressed. 

150: Checks this new position is not a 
wall. 

160: If it is a wall, don’t move. 

170-180: Print space at Jaws’ old 
position. 

190-200: Print J at Jaws’ new position. 

210: Sets Jaws’ position to new position. 

220: Checks if J landed on P and if so, 
goes to subroutine. 


230: Checks if J landed on H and, if so, 
goes down program to end game. 

240: Moves hunter. 

250-260: Print score so far. 

270: Increases number of moves and 
goes back for next one. 

280: Pauses so you can see if you’ve 
been caught. 


IP 






•A 290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
■0390 
■O400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
0530 
540 
■0550 
■0560 
570 
580 
590 

•a 600 
610 
620 
630 

|f^640 

^ 650 


CLS: PRINT "YOU HAVE BEEN CAUGHT'" 

LET S=INT(10000*(T/B)):PRINT "YOU SCORED 
PRINT: PRINT "ANOTHER GO? (Y/N)" 

INPUT A$:IF A$="Y" THEN GOTO 20 
STOP 

LET T=TM:LET U=U-0.03 
60SUB 390:G0SUB 490 
RETURN 

LET X=GXiLET Y=BY:LET Al=" 

GOSUB 640:G0SUB 440: RETURN 
LET Kl=INT(RND(l)t4)+l 
LET K2=INT(RND(1)*4)+1 
LET TI=KI(K1) 

LET KI(K1)=K$(K2):LET K$IK2)=T$ 

RETURN 
GOSUB 550 

IF X=TX AND Y=TY THEN GOTO 440 

LET GX=X:LET GY=Y 

LET AI="H":GOSUB 640 

RETURN 

GOSUB 550 

LET TX=X:LET TY=Y 

LET A$="P":GOSUB 640 

RETURN 

LET F=0:IF HIDKHKY) ,X,1)<>" " THEN LET 
RETURN 

LET X=INT(RND(l)*14)+2 
LET Y=INT(RND(l)*9)+2 
GOSUB 530 

IF FM THEN GOTO 550 

RETURN 

CLS: LET X=1 

FOR Y=1 TO 12:LET A$=H$(Y) 

GOSUB 640: NEXT Y 
RETURN 

PRINT TAB(X,Y);A$ 

RETURN 

FOR 1=1 TO 12:READ H$(I}:NEXT I 
RETURN 

DATA "0000000000000000" 

DATA "0 0" 

DATA "0 0 000 00 000 0" 


“;S 



290-330: Print message and score if 
Jaws is caught. Ask if player wants 
another game. 


F=1 



) 

^ Score depends on C 
( number of people \ 
f eaten and number of/ 
^ ( moves. \ 


340-360: Subroutine which increases 
score and chance of hunter moving and 
goes to other subroutines to change 
keys round and set new person position. 

370-380: Subroutine which removes 
hunter from old position and prints him 
in new one. 

390-430: Subroutine which changes 
keys around. 

440-480: Subroutine for printing hunter, 
using another subroutine to choose a 
random position for him. Line 450 
checks position chosen does not 
already have a person in it. 

490-520: Subroutine for printing person, 
using another subroutine to choose 
random position. 

530-540: Subroutine which checks if 
position X, Y coincides with a wall. If it 
does F is set to 1. 

550-590: Subroutine which chooses a 
random position and checks it is not a 
waU. 

600-630: Subroutine which prints out 
grid. 

640-650: Subroutine which prints at 
position X,Y. 

660-790: Subroutine which reads in data 
for grid. 


These lines make the grid. 
You could change it by 
drawing a new grid on 
squared paper and 
copying it into the 
program using O for walls 
and spaces for passages. 


FfyingWitcfies 



As chief assistant to Superwitch, your job is to fly across the land on your broomstick 
collecting fresh ingredients for her putrid potions. You will know exactly what to 
collect each time because she transmits her revolting recipes directly to your 
computer screen. 

Ingredients such as T (Toe of Newt) and B (Brain of Bat) flash past beneath you as 
you fly. Press any key to swoop down and pick one up (you must land right on top of it 
to do so). Take care, some of them could be the Broomstick Snatcher in disguise. If you 
land on her, you’ll lose your stick. (Luckily you start the game with three spares.) You 
must collect everything you need before you get to the Cauldron or Superwitch will 
not be pleased with you . . . 


10 60SUB 700:60SUB 620 
20 LET NW=A:LET (1=0: LET FN=50 
30 BOSUB 530: LET H=NH 
40 60SUB 550 

50 LET EF=0:LET FF=0:LET HH=H 
60 FOR 1=1 TO 4:LET G(I)=0:NEXT I 


70 FO 
80 LE 
90 GO 
100 IF 
no IF 
^ 20 ^ 



70 FOR 1=1 TO 4:LET AI=PI(I)+“: 

80 LET Y=ni:G0SUB 610:NE1(T I 
90 GOSUB 490:G0SUB 430 
100 IF M=FM THEN GOTO 250 
no IF EF=1 THEN GOTO 230 

INKEYt(0)="“ THEN GOTO 90 
130TET HH=H-1: GOSUB 510 
140 GOSUB 490: GOSUB 430 
150 LET H=HH 

160 IF H>0 THEN GOTO 130 
170 IF P=17 THEN GOSUB 320 
180 IF FF=1 THEN GOTO 240 
190 BOSUB 530 

200 LET HH=H+1: GOSUB 510: GOSUB 490 
210 LET H=HH:IF H=NH THEN GOTO 90 
220 GOSUB 430: GOTO 200 

230 LET AI="WELL DONE' SUPERMITCH ILPLEASED 


Too hard for 
you? Make the 
game easier by 
increasing the 
valne of FM in line 
20. This puts 
more objects 
between the 
start and the 
cauldron. 




How the program works 


20: Sets up variables. (See if you 
can work out what they are.) 

30: H is your height above the 
ground. NH is your new height 
after a dive. 

50: EF and FF are flags which are 
set if game is finished. HH is a 
variable for holding intermediate 
heights on the way up or down. 

60: G( ) counts how many of each 
type of olqect you’ve picked up. 

70-80: Print recipe. 

90-120: Move “ground” and objects 
across screen until a key is 
pressed. 

130-160: Keep ground and olqects 
moving and move witch down to 
ground level. 

170: If P= 17 then witch has landed 
on object. 

180: Checks flag for end of game. 

200-220: Move ground and objects 
past until witch reaches new 
height. 

230-270: End messages. 

280-310: Subroutine which shows 
W if object is Broomstick Snatcher 
in disguise. Increases NW and sets 
FF if all broomsticks used up. 

320: Subroutine which checks if 
you landed on Broomstick 
Snatcher. 

330-350: Increase number of object 
R collected and print new total on 
screen. 


H=1 


IF F=4 THEN LET EFM 
RETURN 

LET 6D=8D+1:IF GD=6 THEN LET SD=1 

LET A$=6I(6D):LET 1(=1:LET Y=1S:80SUB 610 

LET A$=“ *:LET )(=P:LET Y=14:G0SUB 610 

LET P=P+1:1F P=20 THEN GOSUB 550 

LET 1(=P:LET A$=CI:GOSUB 610 

RETURN 

LET AI=”-Y-=":LET )(=16:LET Y=14-HH 
GOSUB 610; RETURN 

LET A$=" ":LET X*16:LET Y=14-H 

GOSUB 610; RETURN 

LET NH=INT(RNDIl)*5+3) 

RETURN 

LET R=INT(RND(1)*4)+1 
LET N=0;IF RND(1)>0.G THEN LET 
LET C$=LEFT$(P$(R),1);LET P=1 
LET H=M+1 

IF M=FM THEN LET CI="CAULDRON 
RETURN 

PRINT TAB(X,Y);A$;RETURN 
CLS;PRINT;PRINT 

PRINT “THE POTION MUST HAVE“:PRINT 
FOR 1=1 TO 4 

LET N=INT(RND(l)t3)+2;LET N(I)=N 
PRlNT;PRINT)Nr "iP$(D 
NEXT I;PRINT;PRINT 
PRINT "PRESS RETURN TO PLAY" 

INPUT XI; CLS; RETURN 
DIN PI(4);DIN N(4);DIN 6(4) 

DIN 61(5) 

FOR 1=1 TO 4:READ Pt(I);NEXT I 

DATA "TOES OF NEWTS", "EYES OF LIZARDS', 

LET H$=">==»=>==== >====>====>====" 

FOR 1=1 TO 5;LET GI(6-l)=HlDI(HI,I,I+20) 

NEXT 1:LET GD=1 

RETURN 



430-480: Print new section of 
ground and move the olqect along 
to position P. If olqect is past the 
witch (i.e. P=20, then choose a 
new oJ^ect). 

490-500: Print witch. 

510-520: ‘^nprint” witch. 

530-540: Choose new height for 
witch. 

550: Chooses an olqect. 

560: Random chance of olqect 
being Broomstick Snatcher. 

570: Puts first letter of object in C$ 
and sets position P to 1. 

580: Increases object counter, M. 

590: If M equals maximum number 
of objects allowed, then C$ 
changed to “CAULDRON^'. 

610: General subroutine to move 
cursor ready for printing. 

620-690: Choose and print recipe. 

700-770: Set up data for start of 
program. P$ holds names of 
objects. H$ holds symbols for 
ground. Line 750 moves the > 
symbols along each time. 


What will Superwitch do to you if 
you fail? Try adding comments 
and penalties to the game. 


ROOTS OF IVY", "BRAINS OF BATS" 


Conversion lines 

1<X120 IF INKEY$=”' THEN GOTO 90 
A120 GET I»:IF 1»=” THEN GOTO 90 

• 120 I$=”:IF PEEK(-16384)>127 THEN GET II 

• 125 IF Il=" THEN GOTO 90 

• l25 »Fn5.1 

OS30,5SO,560,6SO Reolice RNDdI Kith RNC 
■ 530, 550, 560, iSO RepUce RNOUI mth RNOlO) 
0570 LET CI=PI(R,1):LET PM 
0610 PRINT AT y,«!AI:RETURN 


▲ 610 PRINT CHR$(19);F0R LL^l TO VtPRINT: 

NEXT;PRINT TABai;AI;RETURN 

• 610 VTAB(VI;HTAB(X)iPRINT AliRETURN 
■ 610 PRINTI V<32M,AI|!RETURN 

▲ 620,690 Replace CLS Hith PRINT CHRK147I 

• 620,690 Replace CLS mth HONE 
0700 Din Ptl4,15l:DIN NI4l;Din G(4) 

0710 Din GII5,24) 

0750 FOR IM TO 5:LET 6I(6-1I=H1(I TO H-20) 














This is a sort ofmini> 
adventure game. If you’ve 
never played an 
» adventure before, the 
[ olqect is to escape, f 


Micropuzzlc 


What’s happened? 

Where are you? 

Everything appears fairly normal, 
though you do feel a bit sick. 

Better take a look round and see if 
you can find out what’s going on. 

' (Hint: Try talking to your computer in two word sentences.) 


How the program works 

Lines 30-360: MAIN GAME SECTION 

! 10 GOSUB 1570 

10: Goes to subroutine to read in aU the data. 

20 RESTORE: FOR 1=1 TO R:READ D1:NEXT 1 
•A30 CLS: PRINT “MICRO PUZZLE* 

40 PRINT «============• 

50 PRINT “YOU ARE “(D* 

20-50: Get a room description and print it. 

iO IF R=20 AND F(9)=0 THEN PRINT “YOU ARE CONFRONTED BY A LARGE CAT" 

70 FOR 1=1 TO G 

80 IF L(I)=R AND F(I)=0 THEN PRINT 'THERE IS A 
90 NEXT I 

“.nilTl.* HPfiF • 70-90: Check if there is 

, U» U ) , MtKt . anything there. 

100 PRINT:PRINT "YOU CAN GO “; 
no FOR 1=1 TO LEN(R$(R)) 

0120 PRINT HIDf(Rf(R),I,l);",“! 
130 NEXT I 

100-130: Find which directions you 
can go in and print them. 

140 PR1NT:PRINT " “ 

150 PRINT Mt:LET H$=“WHAT?“ 

150: Default message. 

160 IF F(16)=l THEN PRINT “SELF DESTRUCT COUNTDOWN AT :*;L 


170 PRINT 'WHAT WILL YOU DO NOW: INPUT Q$ 

180 LET V$=“":LET W$="“:LET VB=0:LET 0B=0:LET LI=LEN(QJ) 
x>190 FOR 1=1 TO LI 
*>200 IF niD$(Q$,I,l)=" " AND Vl=“" THEN LET Vf=LEFT$(Q$,I-l) 

0210 IF NID$(Qt,I+l,l)<>" ■ AND V$<>“’ THEN LET W$=RISHT$IQ$,LI-I):LET I=LI 
220 NEXT I 


170-220: Get your instructions and 
split them into two words. 
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•-H: 

"a 



230 IF Wt="‘ THEN LET VI=Q$ 
^240 FOR 1=1 TO V 
250 IF V$=H$(I) THEN LET VB=I 
260 NEXT I 


230-260: Check first word is a verb. 


270 GOSUB 440 


270: Goes to snbrontine to check second word. 



280 IF VB=0 THEN LET VB=V+1 

290 IF «$>•" AND 0B=0 THEN LET H$=“THAT IS SILLY* 

300 IF W$=“" THEN LET HI="I NEED TWO WORDS" 

310 IF VB>V AND 0B>0 THEN LET H$="Y0U CAN T *+QI 

320 IF VB>V AND 0B=0 THEN LET Hf="Y0U DO NOT HAKE SENSE* 

330 IF VB<V AND 0B>0 AND 0B<=G THEN LET H$=*Y0U DO NOT HAVE 




280>330: Set np messages if 
necessary. 


•+WI 


340 LET L=L-1 


340; Counter. 


350 IF VB>14 THEN GOTO 380 350-380: Goes to 

0360 ON VB GOSUB 480,550,550,550,550,550,550,550,760,790,790,860,920,970 subroutine 
370 GOTO 390 veAytS^^d. 

0380 ON VB-14 GOSUB 1080,1100,1180,1250,1320,1340,1370,1400,1460,1510,1560 

390 IF F114)=0 AND L>0 THEN GOTO 20 

A 400 IF L<1 THEN LET HI=*Y0U HAVE RUN OUT OF TIHE. THE HAXIHISER SELF DESTRUCTED'" 

410 PRINT HliPRlNT *GAHE OVER* 

390-430: End of game. 


420 IF DO THEN GOSUB 1510 
430 STOP 

FOR 1=1 TO W 
450 IF WI=0$(I) THEN LET 0B=1 
460 NEXT 1 
470 RETURN 

480 PRINT *Y0U ARE CARRYING:" 

490 FOR 1=1 TO G 

500 IF Lll)=25 THEN PRINT 0$(I);", 
510 NEXT I 
520 LET ni="":PRlNT 
530 GOSUB 1550 
540 RETURN 


Type I if yon want an 
inventory (that is, a list of 
what yon are carrying). 





440-470: Snbrontine which checks if second 
word is on compnter’s olqect list. 


480-540: Snbrontine which tells yon what 
yon are carrying. 


550 

560 

570 

580 

590 

600 

610 

0620 

630 

640 

650 

0660 

670 

680 

690 

700 

710 


550-750: Snbrontine which deals with 
yonr instructions about which direction 
yon want to go. 


LET D=0 

IF 0B=0 THEN LET 0=VB-2 
IF 0B>24 THEN LET D=0B-24 
IF R=19 AND D=6 THEN LET D=4 

IF R=20 AND D=6 THEN LET D=4 

IF R=20 AND D=5 THEN LET D=3 

IF F(9)=0 AND R=20 AND D=4 THEN LET H$="THE CAT HILL NOT LET YOU* i RETURN 
IF R=2 AND L(l)=25 AND D=3 THEN LET H$=H1$: RETURN 
IF R=7 AND F(3)=0 THEN LET HF="AN ANGRY HOUSE BARS YOUR WAY*:RETURN 
LET F(13)=0:LET RL=LEN(R$(R) ) 

FOR 1=1 TO RL 
LET Uf=HIDI(R$(R),I,l) 

IF (UI="N* AND D=1 AND F(13)=0) THEN LET R=R-6:LET F(13)=l 

IF (U$=*S* AND D=2 AND F(13)=0) THEN LET R=R+6:LET F(13)=l 

IF (U$=*W* AND D=3 AND F(13)=0) THEN LET R=R-1:LET F(13)=l 

IF (U$=*E* AND D=4 AND F(13l=0) THEN LET R=R+1:.LET F(13)=l 

NEXT I 
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LET N$="OK" 

IF F(13)=0 THEN LET H$="YOU CANNOT SO THAT MAY" 
IF D<1 THEN LET «$="SO MHERE?" 

RETURN 


Have yon played a few times 
and decided yonll never be 
able to win? Yon can give 
yonrself more time if yon like 
by putting a higher value for 
L in the middle of line 1910. 


760 LET M$="ARE YOU PRACTISINB FOR THE OLYMPICS?" 

770 IF F(10)=l AND (R=9 OR R=3) THEN LET M$="IT IS TOO FAR TO JUMP" 

780 RETURN 

i>790 IF 0B=B THEN LET M$=V$+" THE “+H$+M2$: RETURN 
800 IF 0B>G THEN LET MI="I CANNOT BET THE "+M$:RETURN 
810 IF UOBIOR THEN LET MI="IT IS NOT HERE" 

820 IF FIOBIOO THEN LET MI="MHAT "+MI+"?" 

830 IF L(0B)=25 THEN LET MI="Y0U ALREADY HAVE IT" 

0840 IF 0B>0 AND L(0B)=R AND F(0B)=0 THEN LET L(0B)=25:LET M$=M3I+NI 
850 RETURN 

860 IF L(0B)(25 THEN RETURN 

870 LET MI="N0T REALLY!":IF OBOl THEN RETURN 

880 PRINT "PUT KEY MHERE" 

890 INPUT Ml: IF M$>"" THEN GOSUB 440 
0900 IF (0B=8 OR M$=*0N "+0I(8)) THEN LET HI=M4$:LET F(15)=1:LET L(1)=R 
910 RETURN 

0920 IF F(11)=0 AND L(7)=25 THEN LET F(11)=1:LET F(3)=0:LET L(3)*0:LET MI=H5I 
0930 IF F(ll)-1 AND LI7)=25 AND R=20 THEN LET F(9)=1:LET MI=MI+M6I 
940 IF R=21 AND 0B=24 THEN LET F(4)=0:LET MI="DUST SETTLES" 

950 IF 0B=16 THEN GOSUB 970 
960 RETURN 

970 LET Mf="NOTHING OF INTEREST" 

980 IF 0B=16 AND R=12 THEN LET F(2)=0:LET Mf='IT IS A MICRO - VCR" 

990 IF 0B=24 AND R=21 THEN LET Mi="SOMETHING INSIDE' 

1000 IF 0B=19 AND R=24 THEN GOSUB 1400 

OlOlO IF 0B=23 AND R=12 THEN LET H$=M7I 

1020 IF 0B=7 THEN LET MI='IT CONTAINS A LARGE FLY" 

1030 IF 0B=9 AND R=20 AND F(9)=0 THEN LET M$="IT BITES AND SCRATCHES!" 

1040 IF OBM THEN GOSUB 1080 

1050 IF 0B=1 AND L(l)=25 THEN LET M$t"THE NUMBER '111' IS ENGRAVED ON IT" 

1060 IF 0B=6 AND L(6)=25 THEN LET MI="THERE IS A BIG RED BUTTON" 

1070 RETURN 

OlOBO LET MI=MGI:IF 0B=4 AND L(0B)=25 THEN LET M$=HFI 
1090 RETURN 

1100 IF 0BO5 THEN LET Mf="CANN0T TIE “t-MI:RETURN 
1110 IF LI5X25 THEN RETURN 
1120 LET Ml="“: PRINT "TIE THE THREAD TO MHAT" 

1130 INPUT Ml 

1140 IF Ml>"" THEN GOSUB 440 
1150 LET MI='CANN0T TIE IT TO "+MI 
s:xll60 IF 0B=13 AND R=9 THEN LET F(5)=1:LET L(5)=0:LET MI=M8I 
1170 RETURN 

1180 IF 0B=5 AND F(5)=0 THEN LET MI="IT IS NOT TIED TO ANYTHING'" 

1190 IF 0B=5 AND R=9 AND F(5)=l THEN LET R=8:LET F(10)=0:LET MI="OK":RETURN, 
1200 IF 0B=5 AND R=8 AND F(5)=l THEN LET R=9:LET F(10)=1:LET HI="0K“ 

1210 IF 0B=13 AND R=9 THEN LET MI=“IT IS TOO SMOOTH TO CLIMB" 

Ij 1220 IF 0B=M AND R=19 THEN LET 0B=30:G0SUB 550 



760-1500: These are subroutines for the 
verbs used in the program. Look for the 
lines which say RETURN to see where 
one ends and another starts. 




Unless you are using a 
Spectrum, you can leave 
out aU the LETs if you like. 
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1230 IF 0B=W AND R=20 THEN LET 0B=29:G0SUB 550 
1240 RETURN 

1250 IF 0806 OR L(6)<>25 THEN RETURN 
1260 LET WI=":PRINT "POINT IT AT NHAT" 

1270 INPUT W$ 

1280 IF W$>"" THEN GOSUB 440 
1290 IF 0B=22 THEN LET F(6)M 
1300 LET H$="VERY NELL" 

1310 RETURN 

1320 IF 0B=3 AND L(0B)=25 THEN LET L(0B)=0:LET Nf 
1330 RETURN 

1340 IF (0B=19 OR 0B=17) AND R=24 AND L(l)<25 THEN LE 

01350 IF (0B=19 OR 0B=17) AND R=24 AND L(l)=25 THEN LET F(12)=1:LET H$=MH$ 

1360 RETURN 

1370 IF 0B=3 AND R=7 AND LiOB)=25 THEN LET F(3)=1:LET L(0B)=0:LET B=B+1:LET «$=HA$ 

1380 IF L(0B)=25 THEN LET L(0B)=R:LET H$="DONE“ 

1390 RETURN 

1400 IF R024 THEN LET HI=“NOTHING HERE TO TYPE ON!":RETURN 
1410 IF F(12)*0 THEN LET «$="THIS TERMINAL IS NON-ACTIVATED": RETURN 
1420 LET M$="THE TERMINAL ECHOES !"+W* 

1430 IF 0B=18 THEN LET MT=“CODEMORD ACCEPTED":LET FI17)=1 
1440 IF 0B=20 THEN LET MI="TERMINAL ID" 

1450 RETURN 

01460 IF R=14 AND DB=11 AND L(8)=22 THEN LET L(8)=14:LET MI=MB$+MCI: RETURN 

0 1470 IF R=14 AND 0B=11 AND L(8)=14 THEN LET L(8)=22:LET M$=MBI+MDI 

1480 IF F(15)=l THEN LET L(1)=L(8) 

1490 IF DB=21 AND F(6)=l AND L(6)=25 AND R=18 AND F(17)=l THEN LET B=B+10:LET MI=ME$:LET F(14)*l 
1500 RETURN 


ijiv LCi 3-u:run i-i lu o 1510-1560: Scoring 

1520 IF L(I)=25 THEN LET S=S+1 subroutine. 

1530 NEXT 1 

1540 LET S=S+B: PRINT “YOUR SCORE = "iS 

1550 IF F(14)=0 THEN PRINT "PRESS RETURN TO CONTINUE": INPUT Q$ 

1560 RETURN 

1570 LET V=24:LET N=31:LET G=8 



01580 DIM RI(24):D1M OF(H):DIM H$(V) 
1590 DIM L(G);DIM F(17) 


1570-1590: Set up variables and 
dimension arrays. 


1600 DATA 
1610 DATA 
1620 DATA 
1630 DATA 
1640 DATA 
1650 DATA 
1660 DATA 
1670 DATA 
1680 DATA 
1690 DATA 
A 1700 DATA 
1710 DATA 
1720 DATA 
1730 DATA 
1740 DATA 


"INSIDE THE MOUSEHOLE - IT IS VERY DARK IN HERE” 

"AT A MOUSEHOLE IN A CORNER OF THE ROOM", "ON THE EDGE OF A HIGH TABLE" 
"AT THE BACK OF A HALLWAY", "IN A STORAGE ROOM", "IN THE KITCHEN" 

"FURTHER DOWN A DARK SHELLY TUNNEL", “BY A RAILWAY SIDING" 

"AT THE BASE OF A TALL PLASTIC TREE ON THE EDGE OF A HIGH TABLE" 

"OUTSIDE THE OPEN DOOR OF AN ODDLY PROPORTIONED HOUSE" 

"IN A YELLOW FRONT ROOM", "BY A TV SET AND A RECORDER" 1600-1870: Data 
"AT THE END OF A DARK TUNNEL" 

“BY A LARGE SWITCH CONNECTED TO THE RAILWAY TRACKS" 

"ALONGSIDE THE WINDING TRACK" 

"AT THE END OF THE LINE-THE TRACK DISAPPEARS THROUGH A HOLE IN THE WALL" 
"BELOW A WHOLE NALL OF OVERSIZED VIDEO SCREENS" 

“STANDING ON THE MAXIHISER PAD" 

"ON A SHELF OF DISTURBING APPARATUS - THERE IS A STOOL NEARBY" 

"ON A SHORT STEP STOOL" 



1750 DATA “ON THE FLOOR OF AN OVERTURNED BOX OF BROKEN ELECTRONIC PARTS" 

1760 DATA “AT A HOLE IN THE WALL FROM WHICH A RAILWAY LINE EHERSES" 

1770 DATA “AT THE BASE OF A SWIVEL CHAIR" 

1780 DATA “STANDING ON A COMPUTER TERMINAL WITH A SECURITY LOCK" 

1790 DATA 16,12,3,21,5,17,19,14 

1800 DATA “I“, “GO", “N“,"S",“W","E“,*U“,“D“,"JUMP“,“GET“, “TAKE", “PUT", "OPEN" 

1810 DATA "EXAMINE", “READ", "TIE", “CLIMB“, “POINT", “EAT", "UNLOCK", "LEAVE", "TYPE" 
1820 DATA "PRESS", “SCORE", "SE","SW","SE","SWE", "WE", “SW", "NS", "NS", “NE","NW" 
1830 DATA "EW","NW","NS","NE",“EW“,"W‘,"S“,"S","NED","EHUD“,"EW","EW","NEW" 

1840 DATA "NW" , "KEY" , "CASSETTE" , "CHEESE" , "PAPER" , "THREAD" , "REMOTE-CONTROL" 
A1850 DATA "BOTTLE" , "TRAIN" , "CAT" , "DOOR" , "SWITCH" , "TUNNEL" , "TREE" , "HOLE" , "MOUSE" 
1860 DATA "VIDEO", "COMPUTER", "GROCER", “TERMINAL", "111", "BUTTON", "MAXIMISER" 

1870 DATA "TV" , "BOX" , "NORTH" , "SOUTH" , "WEST" , "EAST" , "UP" , "DOWN" , "STOOL" 


1880 FOR 1=1 TO 24:READ D$:NEXT I:FOR 1=1 TO G:READ L(I):NEXT I 

1890 FOR 1=1 TO V;READ HiiI):NEXT I:FOR 1=1 TO 24:READ RI(I):NEXT I 1880-1 900: Read in data. 

1900 FOR 1=1 TO WiREAD OI(I):NEXT liLET F(10)=1:LET F(4)=1;LET F(2)=l 


01910 LET R=lliLET B=8:LET L=100:LET M$=*YOU AWAKEN. . ":LET MH$="TERM1NAL ACTIVE" 

01920 LET Mlf=“YDU CANNOT TAKE THE KEY THROUGH": LET M2I=" EH? VERY FUNNY I" 

0 1930 LET M3$="Y0U HAVE THE ":LET M4$=“WELL DONEI":LET MG$=“NOTHING OF INTEREST" 

01940 LET M5$="A LOUDLY BUZZING FLY FLIES OUT":LET MB$=“THE TRAIN CHUBS " 

0 1950 LET M7$="IT IS JUST A BOX WITH PHOTO STUCK ON":LET M9$="*' TAMPER »l" 

01960 LET M8I="IT IS SECURELY TIED.": LET M6$=" AND THE CAT CHASES AFTER IT!" 

01970 LET MA$=“THE MOUSE RUNS OFF WITH IT.":LET MF$="TERMINAL PASSW0RD="+0$(18) 

01980 LET MCI="INTO SIGHT AND STOPS HERE":LET MDI="AWAY AND INTO A TUNNEL" 

01990 LET ME$="THE MAXIMISER BEAM WORKS. YOU ARE RETURNED TO NORMAL SIZE" 

2000 RETURN 1910-2000:Setnpmessages. 
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Conversion lines 

A 30 Replace CLS with PRINT CHRf(147) 

• 30 Replace CLS with HONE 

. . . FOR SPECTRUM USERS O 

120 PRINT R$(R,I)i",": | 

190 FOR 1=1 TO Ll-1 . ’ 

200 IF QI(I)=" " AND V$="" THEN LET VI=QI( TQ 1-1) 

210 IF 01(1+1)0" " AND V$(>"" THEN LET WI=Q$(I+1 TO ):LET I=L1-1 
235 IF LEN(V$)<7 THEN LET Vf=VI+" ".‘GOTO 235 

360 GOSUB 480#(VB=1)+550»(VB>1 AND VB<9)+760»(VB=9)+790*(VB=10 OR VB=11) 
+860*(VB=12)+920*(VB=13)+970*(VB=14) 

380 GOSUB. 1080*(VB=15)+1100*(VB=16)+1180*(VB=17)+1250*(VB=18)+1320*(VB=19)+1340»(VB=20) 


IMPORTANT NOTE 
for Commodore users. 

If you are using a C64 or a 
VIC 20, you must leave out 
the LETS in lines 400, 1340, 
1370 and 1490. 

If you are using a C64, you 
must leave out all the 
spaces in lines 1490, 1 700 
and 1850. 



+1370*(VB=21)+1400»(VB=22)+1460*(VB=23)+1510*IVB =24)+1560*(VB=25) 

440 IF LENIWIXM THEN LET WI=WI+" ":GOTD 440 
445 FOR 1=1 TO W 
660 LET UI=R$(R,I) 

900 IF (0B=8 OR W$=“ON "+0I(8)+" " THEN LET M$="WELL DONE!":LET F(15)=1:LET L(1)=R 

1580 DIM RI(24,4):D1M 0$(W,14):DIM HI(V,7) 

1910 LET R=11:L£T B=8:LET L=100:LET M$="YOU AWAKEN.." 

Lines 620,790,840,920,930,1010,1080.1160.1340,1350,1370.1460,1470,1490 
Replace Mil to MHI in these lines with the text in lines 1910 to 1990 


eg. 620 IF R=2 AND L(l)=25 AND D=3 THEN LET MI="YOU CANNOT TAKE THE KEY THROUGH": RETURN 
Leave out lines 1920 to 1990 



Answers to puzzies 


Here are the answers to some of the 
puzzles in this book. 

Skulls of The Pyramid 

To add more skulls, change the 5 in line 
260 to a higher number. 

The limits of the number to be scored are 
set in line 20. As the program stands the 
number chosen is between 10 and 39. If 
you change the 30 to 40, you will get a 
number between 10 and 49. If you also 
change the 10 to 20, you will get a number 
between 20 and 49. 

Monster Wrestling 

To increase the number of rounds, 
change the number 1 1 in lines 260 and 
550 to a higher number. (It must be the 
same in both.) 

If you increase the number of rounds, 
you may want more panics. To get these, 
change the number 4 in line 440 to a 
higher number. 

Jaws 

To make the hunter move more often, 
decrease the value of U in line 30, for 
example to 0.8. 

Flying Witches 

If you fail the program goes either to line 
240 or 250 for a message. Change these to 
whatever you like. 
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